Unit
lmdformA

Declaration

TLMDSendStringEvent = procedure(Sender:TObject; const Section:String) of object;